home *** CD-ROM | disk | FTP | other *** search
/ Business Heaven / Business Heaven.iso / office / labelr / labels.exe / LABWRITE.TXT < prev    next >
Encoding:
Text File  |  1993-11-03  |  3.0 KB  |  59 lines
  1. \BLA #320,0,639,479\ON KEY F10 JUMP REDO_ALL
  2. \X NO_CONFIG\BLA #320,0,639,#322
  3. \CALLM PR_LBL\CALLM SHOW_DISKDATA\CALLM SHOW_LABELINFO\CALLM SHOW_COMPANY\CALLM SHOW_LOGO\CALLM PRINT_SRL
  4. \BLA HIGHXPRN+1,LOWYPRN,#320-1,HIGHYPRN\X ASKWRT\LOC #320,0\WID #321 DOT
  5. \BLA #320,0,639,#322\IF CHGD_LBL='Y'\JUMP WANNA_WRT\ENDIF\MOVE 'N' TO #200
  6. \IF SRL_TEMPRUN='Y'\JUMP SKIPPED_WRT\ENDIF\TEXT PLANE=1011
  7. The labels and printer setup information have not been changed.
  8. \"
  9. Do you want to write this label file to disk anyway? (Press Y to write or N not to write)
  10. \CURS CRSR_XLOC,6,80,6\QUES #200,1\IF #200='Y'\JUMP WANNA_WRT\ELSE\IF #200='N'\JUMP SET_NAME\ENDIF
  11. \BEEP 39,39\JUMP ASKWRT
  12. \X SET_NAME\IF FLNAME<>' ' AND FLNAME<>'NEW'\MOVE FLNAME TO HLDFLNM\ENDIF\JUMP SKIPPED_WRT
  13. \X GETNEWDATA\LOC #320,100\TEXT PLANE=0100
  14. Error writing disk label file!
  15. \"
  16. \ERROR ?\IF A=31
  17. Your disk was probably full.
  18. \"
  19. We suggest you press <ALT-Q> NOW to temporarily exit to DOS.  From there, you can erase something.  You need about 4K bytes to save a label file.
  20. \ELSE
  21. DOS did not properly write the label file.  You should run your DOS program called CHKDSK with /F option.  We suggest you press <ALT-1> NOW to exit (PERMANENTLY) to DOS.  Unfortunately you will loose your current file.
  22. \"
  23. The error you got is very rare.
  24. \"
  25. \ENDIF
  26. \ON KEY 4096 JUMP DOSOUT\TEXT PLANE=1101
  27. \WAIT RET -1 "                           Press <RETURN> to continue..."\ON KEY 4096
  28. \X WANNA_WRT\LOC #320,0\WID #321 DOT\TEXT PLANE=1011
  29. \IF CHGD_LBL<>'Y'\ELSE
  30. You have changed information for this label, the bonus labels, or printer setup.  Before printing, this information must be saved to disk.
  31. \ENDIF
  32. \"
  33. Enter a label data file name up to 8 characters for this label.  Do not use the word "NEW":
  34. \LOC #320,118
  35. Press <F10> to change your diskette information.
  36. \"
  37. (Any label file with the same name will be copied to *.bak)
  38. \IF LABTYPE='3.5"'\BLA #320,200,639,#322\ENDIF
  39. \CURS CRSR_XLOC,6,80,6\QUES FLNAME,8,1
  40. \IF FLNAME='NEW'\BLA #320,0,639,#322\BEEP 44,144\JUMP WANNA_WRT\ENDIF
  41. \IF FLNAME=' '\BLA #320,0,639,#322\BEEP 166,122\JUMP WANNA_WRT\ENDIF\CURSOR 0,25,80,25\WAIT LIMIT 1\MOVE ' ' TO #200\QUEST #200,1\WAIT LIM -1
  42. \MOVE FLNAME TO HLDFLNM\CALLM MAKENM\BUILD #200='COPY ',LABELNM,' *.BAK'
  43. \BLA 0,397,639,479\EXEC DOS>(#200)\+
  44. \MOVE '5.16' TO #1000 ;LABELER vers. # Change in LABINTRO too!
  45. \BUILD #10000="LABEL FILE LAST WRITTEN: ",TIME&DATE
  46. \ON ERROR JUMP GETNEWDATA\WRITE (LABELNM)\CLEAR ON ERRORS\MOVE 'N' TO CHGD_LBL
  47. \BLA 0,395,639,479\LOC 50,416\WID 260 DOT\LINE 34,413,306,427,1,B\TEXT PLANE=1101
  48. Press <F10> to restart label routine
  49. \LOC 50,416\WID 260 DOT\LINE 34,413,306,427,1,B\TEXT PLANE=1101
  50. Press <F10> to restart label routine
  51. \LOC #320,112\WID #321 DOTS\BLA #320,111,639,#322\TEXT PLANE=1011
  52. \DISP FLNAME,' has been stored on disk.'
  53. \BLA 0,460,639,479\TEXT PLANE=1101
  54. \WAIT RET -1 "                       PRESS <RETURN> TO CONTINUE..."
  55. \X SKIPPED_WRT\BLA 0,413,639,479
  56. \READ K:PRINT_HP.TXT
  57. \X DOSOUT\ON KEY 4096\CALLM DOSEXIT\READ K:LABWRITE.TXT
  58. \X REDO_ALL\READ K:LAB_DATA.TXT
  59.